home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / fredfish / 1018.lha / Programs / Multiplot / MultiplotInstall < prev    next >
Text File  |  1994-04-27  |  10KB  |  240 lines
  1. ; Multiplot Install Script
  2. ; 2-Apr-94
  3. ; Copyright 1994
  4.  
  5.  
  6. (set sourcedisk1 "Multiplot_Install:")
  7. (set sourcedisk2 "Multiplot_Extras:")
  8. (set destdir (getassign "SYS"))
  9.  
  10.  
  11. (set installtype (askchoice
  12.                       (prompt "What sort of installation do you want?")
  13.                       (choices "Floppy Disk" "Hard Disk")
  14.                       (help "Selecting 'Floppy Disk' will copy essential "
  15.                             "system files over to your current Workbench. "
  16.                             "You will need to boot up on a copy of your "
  17.                             "Workbench which has about 150k free. You can "
  18.                             "make this much space by deleting the utilities "
  19.                             "directory and a few unwanted preferences "
  20.                             "programs from a copy of a standard Workbench "
  21.                             "disk.\n\n"
  22.                             "Selecting 'Hard Disk' will fully install "
  23.                             "Multiplot and its support files as well as "
  24.                             "installing the system files.\n")
  25.                       (default 0)
  26.                  )
  27. )
  28. (  if (= installtype 1)
  29.     (
  30.         (set destdir (askdir
  31.                         (prompt "Where would like Multiplot installed?\n")
  32.                         (help "Choose a destination partition or directory "
  33.                               "to contain Multiplot XLN.  The install "
  34.                               "program will copy the Multiplot file to "
  35.                               "it and create a directory containing "
  36.                               "Multiplot's support files.")
  37.                        (default (getassign "SYS") )
  38.                      )
  39.         )
  40.         (copyfiles    (source (tackon sourcedisk1 "Multiplot") )
  41.                       (pattern "(Multiplot|MPlot_support|multiplot.guide|Multiplot.info|multiplot.guide.info)")
  42.                       (dest destdir)
  43.                       (prompt "Installing Multiplot program\n")
  44.         )
  45.  
  46.         (set answer1 (askchoice
  47.                         (prompt "Do you wish to install ARexx Macros?")
  48.                         (choices "Yes - In the default directory" "Yes - In a special directory" "No")
  49.                         (help "Selecting 'Yes' will result in Multiplot specific "
  50.                               "ARexx scripts and macros being installed. "
  51.                               "By default, Multiplot will look for macros in "
  52.                               "a directory called Rexx which resides in the "
  53.                               "same directory as the Multiplot program.\n"
  54.                               "If you select 'No' you will still be able "
  55.                               "to access the macros from the installation "
  56.                               "disks.\n")
  57.                         (default 0)
  58.                      )
  59.         )
  60.  
  61.         (  if (= answer1 0)
  62.             (
  63.                 (makedir (tackon destdir "Rexx") (infos) )
  64.                 (copyfiles
  65.                      (source (tackon sourcedisk2 "Rexx/scripts"))
  66.                      (pattern "#?")
  67.                      (dest (tackon destdir "Rexx"))
  68.                      (prompt "Installing ARexx Macros\n")
  69.                 )
  70.             )
  71.         )
  72.  
  73.         (  if (= answer1 1)
  74.             (
  75.                 (set rexxdir (askdir
  76.                                 (prompt "Where would like the ARexx macros installed?")
  77.                                 (help "Choose a destination partition or directory "
  78.                                       "to contain the macros. The install program "
  79.                                       "program will copy them there. By default "
  80.                                       " Multiplot will look for macros in a "
  81.                                       "directory called Rexx which resides in the "
  82.                                       "same directory as the Multiplot program.")
  83.                                 (default (getassign "REXX"))
  84.                              )
  85.                 )
  86.                 (copyfiles
  87.                      (source (tackon  sourcedisk2 "Rexx/scripts"))
  88.                      (pattern "#?")
  89.                      (dest rexxdir)
  90.                      (prompt "Installing Multiplot Rexx macros\n")
  91.                 )
  92.             )
  93.         )
  94.     )
  95. )
  96. (set answer2 (askchoice
  97.                  (prompt "Do you wish to install the ARexx Maths Library?")
  98.                  (choices "Yes" "No")
  99.                  (help "Selecting 'Yes' will result in the installer "
  100.                        "program copying a library that allows "
  101.                        "ARexx scripts to use higher maths functions "
  102.                        "to your LIBS:directory.\n"
  103.                        "If you select 'No', you will not be able to "
  104.                        "run ARexx scripts which require higher maths "
  105.                        "functions.")
  106.                  (default 0)
  107.              )
  108. )
  109. (  if (= answer2 0)
  110.     (
  111.          (copylib (source (tackon sourcedisk2 "Rexx/RexxMathLib/rexxmathlib.library"))
  112.                   (dest   "libs:")
  113.                   (prompt "Installing ARexx Maths Library\n")
  114.          )
  115.     )
  116. )
  117. (set answer3 (askchoice
  118.                  (prompt "Do you wish to install the PLT: device?")
  119.                  (choices "Yes" "No")
  120.                  (help "The PLT: device is required for the print "
  121.                        "preview feature and Workbench printer "
  122.                        "support. Selecting 'yes' will copy the "
  123.                        "Plt-handler to the L: directory, the "
  124.                        "mountlist to the DEVS: directory and some "
  125.                        "support files to a PLTDATA: directory.")
  126.                  (default 0)
  127.              )
  128. )
  129.  
  130. (  if (= answer3 0)
  131.     (
  132.          (set devdir (askdir (prompt "Where is your usual system DEVS: directory?\n")
  133.                      (help @askdir-help)
  134.                      (default (getassign "DEVS"))
  135.                      )
  136.          )
  137.          (set pltdir (askdir
  138.                          (prompt "Where would like the PLTDATA installed?")
  139.                          (help "Choose a destination partition or directory "
  140.                                "to contain the PLT: support files.The install "
  141.                                "program will copy them there.")
  142.                          (default destdir)
  143.                       )
  144.          )
  145.          (copyfiles   (source (tackon  sourcedisk2 "Plt") )
  146.                       (pattern "(ascii|ascii.fnt|pltfontnames)")
  147.                       (dest pltdir)
  148.                       (prompt "Installing PLT support files\n")
  149.          )
  150.          (set string1 ("assign PLTDATA: %s" pltdir))
  151.          (startup "MULTIPLOT"
  152.                (prompt ("%s\n%s\n%s\n"
  153.                         "The following assign has been created."
  154.                         string1
  155.                         "Do you want it added to your startup?"))
  156.                (command ("assign pltdata: %s\n" pltdir))
  157.                (help "The PLT: device requires that PLTDATA: be assigned "
  158.                      "to the directory which contains the PLT: support "
  159.                      "files. If you choose, the installer program will "
  160.                      "add this assignment to your startup. Otherwise, "
  161.                      "you must add it by hand for the correct running "
  162.                      "of the Multiplot features which rely on the PLT "
  163.                      "device.")
  164.          )
  165.          (makeassign "PLTDATA" pltdir)
  166.          (copyfiles  (source (tackon  sourcedisk2 "Plt") )
  167.                      (pattern "plt-handler")
  168.                      (dest (getassign "L"))
  169.                      (prompt "Installing PLT handler\n")
  170.          )
  171.          (set answer4 (askchoice
  172.                           (prompt "What Workbench version are you using?")
  173.                           (choices "WB2.0" "WB2.1 or greater")
  174.                           (help "The mountlist is handled differently under "
  175.                                 "Workbench 2.1 and subsequent revisions, and "
  176.                                 "this affects the installation. If in doubt, "
  177.                                 "select WB2.0")
  178.                           (default 0)
  179.                       )
  180.          )
  181.          (  if (= answer4 0)
  182.              (
  183.                (run (cat
  184.                       "c:copy \""
  185.                       (tackon devdir "mountlist")
  186.                       "\" \""
  187.                       (tackon devdir "mountlist.mp_BK!")
  188.                       "\"")
  189.                     (prompt "Making backup copy of devs/mountlist" )
  190.                )
  191.                ;only backup once
  192.                (run (cat
  193.                       "c:protect \""
  194.                       (tackon devdir "mountlist.mp_BK!")
  195.                       "\" -d")
  196.                )
  197.                (run (cat
  198.                       "c:join \""
  199.                       (tackon devdir "mountlist.mp_BK!")
  200.                       "\" \""
  201.                       (tackon sourcedisk2 "Plt/mountlist.frag")
  202.                       "\" to \""
  203.                       (tackon devdir "mountlist")
  204.                       "\"")
  205.                     (prompt "Altering devs/mountlist" )
  206.                )
  207.              )
  208.          )
  209.          (  if (= answer4 1)
  210.              (
  211.                  (copyfiles  (source (tackon  sourcedisk2 "Plt") )
  212.                              (pattern "PLT|PLT.info")
  213.                              (dest (tackon devdir "dosdrivers/"))
  214.                              (prompt "Copying PLT: dos driver\n")
  215.                  )
  216.              )
  217.          )
  218.          (message "The PLT: device requires that  you have "
  219.                   "have selected a printer driver from the "
  220.                   "'printer'  preferences  program in  the "
  221.                   "'Prefs' directory of your Workbench.\n"
  222.                   "The Generic printer  driver will result "
  223.                   "in PLT crashing.\n"
  224.                   "If  you  have  not  already installed a "
  225.                   "printer driver, please  do so now, even "
  226.                   "if you do not own a printer." )
  227.  
  228.     )
  229. )
  230. (message "Multiplot's help system requires that "
  231.          "you have AmigaGuide installed. If you "
  232.          "are using WB2.0 or WB2.1 and have not "
  233.          "yet installed AmigaGuide, you will "
  234.          "find a program on the Multiplot_Extras "
  235.          "disk to install it for you. " )
  236.  
  237. (  if (= installtype 1) (set @default-dest destdir) )
  238. (  if (= installtype 0) (set @default-dest sourcedisk1) )
  239.  
  240.